home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / editeur.txt < prev    next >
Text File  |  1994-03-01  |  880b  |  18 lines
  1. 1 ' *** OISAC 2 *** EDITEUR-MEM1 ***
  2. 10 CLS:P=0:PRINTCHR$(9)"*** OISAC 2 *** EDITEUR-MEM *** ADRESSE :           PAGE :";:LOCATE10,1:INPUT@7;A:LOCATE0,0:LOCATE25,1:INPUT@3;P:DEFSEG=P*4096:Z=0:CLS
  3. 20 H$="":A$="":FORI=0TO14:D=PEEK(A+I):H$=H$+RIGHT$(HEX$(D),2):IFD<32THEND=46
  4. 30 A$=A$+CHR$(D):NEXT
  5. 50 CLS:IFZ THEN110
  6. 100 PRINT" "H$"  &H"HEX$(A)" &H"RIGHT$(HEX$(P),2)"  ["A$"]";:GOTO120
  7. 110 PRINT" "H$"  &H"MID$(H$,3,2)LEFT$(H$,2)" &H"MID$(H$,5,2)" &H"MID$(H$,9,2)MID$(H$,7,2)"  ["MID$(A$,8,8)"]";
  8. 120 $=INPUT$(1,@):CLS    
  9. 130 IF$="1"OR$="0"THENZ=VAL($):GOTO50
  10. 135 IF$="*"THEN10
  11. 140 IF$="+"THENA=A+15:GOTO20
  12. 145 IF$="-"THENA=A-15:GOTO20
  13. 150 IF$="/"THENINPUT"DECALAGE :    ",Y:A=A+Y:GOTO20
  14. 155 IF$<>"H"THEN160ELSEPRINT"Hexa -> Deci : ";:INPUT@6;Y:IFY<0THENY=65536+Y
  15. 156 PRINTY"d":GOTO50
  16. 160 IF$="D"THENPRINT"Deci -> Hexa : ";:INPUT@6;Y:PRINT"&H"HEX$(Y):GOTO50
  17. 170 BEEP:GOTO50
  18.